Info-Mac 4/Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso/Development/General/ViewIt™ 2.24 Shareware/FORTRAN Demo Projects/LS Fortran 3.3 Demos/FaceStorLF.inc

Text File | 1994-01-27 | 8KB | 284 lines

C FaceWare 2.23 Commands & Shared Record
C ©FaceWare 1989-94.  All Rights Reserved.

    integer*4 DoInit,DoPrep
    parameter (DoInit = -61)
    parameter (DoPrep = -62)
C FaceIt commands
    integer*4 DoLoop,DoEvnt,DoMenu,GetMsg
    parameter (DoLoop = 0)
    parameter (DoEvnt = -51)
    parameter (DoMenu = -52)
    parameter (GetMsg = -55)
C ViewIt commands
    integer*4 ChgCur,PstEvt,PopMen,SetIdl,EndIdl,DoUpdt2,DoUpdt
    integer*4 ShoAlt,StpAlt,NotAlt,CtnAlt,SetItm2,SetItm,GetItm
    integer*4 ChkMem,NewBlk,PrgCmd,GetFgC,GetBkC,SetFgC,SetBkC
    integer*4 SetFSS,SetPal2,StdOpn,StdSav,GetRef,SetRef,SetTyp
    integer*4 SndBhd,GetNam,SetNam,MovRec,MovAlt,MovDlg,MovWin
    integer*4 DrgWnd,ShoStr,StpStr,NotStr,CtnStr,GetStd,SetStd
    integer*4 SavDlg,SavWin,FndTxt,DoUnld,HitCtl,SetPal,SetInfo
    integer*4 SetSub,TrmStr,SetPrm,CnvStr,NumToS,SToNum,GetStr
    integer*4 SetStr,SrtLst,DupLst,SetItm1,FixFSC,SelFSC,PstNot
    integer*4 NewWnd,EndWnd,MdlWnd,SizWnd,MovWnd,SizCtl
    integer*4 ShoWnd,HidWnd,GetWnd,GetCtl,ShoCtl,GetVal
    integer*4 SetVal,OvrCtl,AddCtl,DrwCtl,ScrCtl,ActCtl
    integer*4 GetWVC,LnkCtl,AddVew,SelCtl,DspCtl,StlCtl
    integer*4 SavCtl,SavWnd,HlpWnd,MovCtl,ClrCtl,SetVCod
    parameter (DoUpdt2 = -53)
    parameter (DoUpdt = -53)
    parameter (DoUnld = -63)
    parameter (ChgCur = 121)
    parameter (PstEvt = 122)
    parameter (PopMen = 123)
    parameter (PstNot = 124)
    parameter (SetIdl = 131)
    parameter (EndIdl = 132)
    parameter (ShoAlt = 153)
    parameter (StpAlt = 154)
    parameter (NotAlt = 155)
    parameter (CtnAlt = 156)
    parameter (SetItm1 = 160)
    parameter (SetItm2 = 161)
    parameter (SetItm = 161)
    parameter (GetItm = 162)
    parameter (FixFSC = 163)
    parameter (SelFSC = 164)
    parameter (ChkMem = 171)
    parameter (NewBlk = 172)
    parameter (PrgCmd = 173)
    parameter (GetFgC = 178)
    parameter (GetBkC = 179)
    parameter (SetFgC = 180)
    parameter (SetBkC = 181)
    parameter (SetFSS = 183)
    parameter (SetPal2 = 185)
    parameter (SetPal = 185)
    parameter (StdOpn = 201)
    parameter (StdSav = 202)
    parameter (GetRef = 205)
    parameter (SetRef = 206)
    parameter (SetTyp = 208)
    parameter (SndBhd = 250)
    parameter (GetNam = 251)
    parameter (SetNam = 252)
    parameter (MovRec = 254)
    parameter (MovAlt = 255)
    parameter (MovDlg = 256)
    parameter (MovWin = 257)
    parameter (DrgWnd = 259)
    parameter (ShoStr = 261)
    parameter (StpStr = 262)
    parameter (NotStr = 263)
    parameter (CtnStr = 264)
    parameter (GetStd = 301)
    parameter (SetStd = 302)
    parameter (SavDlg = 356)
    parameter (SavWin = 357)
    parameter (SetSub = 451)
    parameter (TrmStr = 452)
    parameter (SetPrm = 453)
    parameter (CnvStr = 454)
    parameter (FndTxt = 455)
    parameter (NumToS = 471)
    parameter (SToNum = 481)
    parameter (GetStr = 491)
    parameter (SetStr = 492)
    parameter (SrtLst = 493)
    parameter (DupLst = 494)
    parameter (AddVew = -1200)
    parameter (NewWnd = -1201)
    parameter (EndWnd = -1202)
    parameter (MdlWnd = -1203)
    parameter (SizWnd = -1204)
    parameter (MovWnd = -1205)
    parameter (ShoWnd = -1206)
    parameter (HidWnd = -1207)
    parameter (GetWVC = -1208)
    parameter (GetWnd = -1209)
    parameter (LnkCtl = -1210)
    parameter (GetCtl = -1211)
    parameter (ShoCtl = -1212)
    parameter (GetVal = -1213)
    parameter (SetVal = -1214)
    parameter (OvrCtl = -1215)
    parameter (AddCtl = -1216)
    parameter (DrwCtl = -1217)
    parameter (ScrCtl = -1218)
    parameter (ActCtl = -1219)
    parameter (SelCtl = -1220)
    parameter (DspCtl = -1221)
    parameter (StlCtl = -1222)
    parameter (SavCtl = -1223)
    parameter (SavWnd = -1224)
    parameter (SizCtl = -1225)
    parameter (MovCtl = -1226)
    parameter (ClrCtl = -1227)
    parameter (SetVCod = -1228)
    parameter (SetInfo = -1228)
    parameter (HlpWnd = -1229)
    parameter (HitCtl = -1230)

C Global FaceWare record
    structure /FaceRec/
C program-wide info
      integer*2   fHead(8)
      integer*4   fOffPort
      integer*4   fCOffPort
      integer*4   fActiveWnd
      integer*4   fActiveRec
      integer*2   fActiveID
      integer*2   fActiveResID
      integer*2   fMsgCount
      integer*4   fFlags
      integer*4   fStuff
      integer*4   fHeapBuff
      integer*4   fEnvFlags
      integer*4   fSleep
      integer*2   fScreenRect(4)
      integer*2   fDragRect(4)
      integer*4   fFrontSleep
      integer*4   fBackSleep
      integer*2   fFiller1
      integer*4   fStdBlock
      integer*2   fStdCount
      integer*2   fSysEnvArr(8)
      integer*2   fApplVRef
      character*4 fCreator
      integer*4   fRefCon
      integer*2   fFiller2(7)
      integer*2   fCursor
      integer*4   fFontMenu
      integer*4   fSizeMenu
      integer*4   fStyleMenu
      integer*4   fColorMenu
      integer*1   fFiller3
      integer*1   fI1Err
      integer*2   fI2Err
      integer*4   fI4Err
      integer*2   fI8Err(4)
      real*4      fR4Err
      real*8      fR8Err
      integer*2   fR10Err(5)
      integer*2   fR12Err(6)
      integer*2   fFiller4(105)
      integer*4   fDrvr7400
      integer*1   fMBarHt
      integer*1   fDecPtCh
      integer*2   fSysFNum
      character*32 fSysFName
      integer*4   fWDEF
      integer*4   fGlueData
      integer*4   fWaitNextEvent
      integer*4   fGetNewWindow
      integer*4   fGetNewCWindow
      integer*4   fDisposeWindow
      integer*4   fFiller5(4)
      integer*4   fActiveWindow
      integer*4   fSelectWindow
      integer*4   fUpdateOther
      integer*4   fFiller6(9)
      integer*2   fEvent(8)
      integer*2   fFiller7(190)
C utility scratch variables
      integer*2   uFSSpec(35)
      integer*2   uHead(8)
      integer*2   uI2
      integer*4   uI4
      real*4      uR4
      real*8      uR8
      integer*2   uR10(5)
      integer*2   uR12(6)
      integer*2   uPt(2)
      integer*2   uRect(4)
      integer*4   uCommand
      integer*4   uParam(4)
      integer*4   uResult
      integer*4   uMenuID
      integer*4   uMenuItem
      character*256 uString
      character*256 uName
      integer*2   uRGB(3)
      integer*1   uStyle
      integer*1   uI1
      integer*2   uI8(4)
      integer*4   uMenuHdl
C window-related info
      integer*2   vHead(8)
      integer*2   vErr
      integer*4   vCDEF
      integer*4   vSelectCtl
      integer*4   vSelectRec
      integer*2   vSelectID
C info returned by enabled items
      integer*2   wiHit
      integer*2   wvHit
      integer*2   wcHit
      integer*2   wClick
      integer*2   wEvent(8)
C window info returned by GetWnd
      integer*4   wWindow
      integer*2   wResID
      integer*2   wCount
      integer*2   wvCount
      integer*2   wiCount
C control info returned by GetCtl
      integer*4   cControl
      integer*2   ciIndex
      integer*2   cvIndex
      integer*2   ccIndex
      integer*2   cBaseID
C info copied from "cControl" block
      integer*4   cNext
      integer*4   cOwner
      integer*2   cRect(4)
      integer*1   cVis
      integer*1   cHilite
      integer*2   cValue
      integer*2   cMin
      integer*2   cMax
      integer*4   cInfo
      integer*4   cLoData
      integer*4   cAction
      integer*4   cRefCon
      character*256 cTitle
C info copied from "cInfo" block
      integer*2   cStuff(6)
      integer*4   cTmplRefCon
      integer*4   cPtr
      integer*4   cHiData
      integer*4   cView
      integer*2   cOldRect(4)
      integer*2   cClip(4)
      integer*2   cContent(4)
      integer*2   cLimit(4)
      integer*4   cType
      integer*2   cVarCode
      character*4 cResType
      integer*2   cResID
      integer*4   cResHdl
      integer*4   cPrivate
      integer*1   cScrInc
      integer*1   cCmdKey
      integer*2   cPnRound
      integer*2   cPnSize(2)
      integer*1   cTxJust
      integer*1   cTxFace
      integer*2   cTxSize
      integer*2   cTxFont
      integer*2   cDataType
      integer*1   cDataDigits
      integer*1   cDataFormat
      integer*2   cDataOffset
      integer*4   cDataPtr
      integer*2   cStorType
      integer*4   cStorPtr
      integer*4   cColors
      integer*4   cOverride
      integer*2   cCount
      character*256 cString
C private debugging table
      integer*2   xEntries
      integer*4   xTable(40)
    end structure